perm filename PN.F4[MUS,LCS] blob sn#161106 filedate 1975-05-29 generic text, type T, neo UTF8
00100		SUBROUTINE PN(N)
00400		INC=N-J
00450		L=N
00500		IF(INC.GT.512)GO TO 2
00600		IF(INC.GE.-512)GO TO 3
00700		N=J-512
00800		GO TO 5
00900	3	N=J+INC
01000	5	J=N
01010		TYPE 1,L,N,INC
01100		RETURN
01200	2	N=J+512
01300		GO TO 5
01310	1	FORMAT(3I6)
01400		END